10 DIM A$(33)
20 PRINTCHR$(14):POKE53280,0:POKE53281,0:POKE646,3
30 PRINT"[147]                                 [146]"
40 PRINT"         [146] [199][197][207][211] [198]ONT [201].[196]. [197]DITOR  [146]"
50 PRINT"                                 [146]"
60 PRINT"     [160][195]OPYRIGHT 1988 [195][207][205][208][213][212][197]! [208]UB.,"
70 PRINT"           [193]LL [210]IGHTS [210]ESERVED"
80 PRINT"         [208]UT [198][207][206][212] [196]ISK IN [196]RIVE: [146]"
90 PRINT"               [200]IT A [203]EY."
100 GETA$:IFA$=""THEN100
110 PRINT"[147]  [215]HEN LISTING REACHES [198][207][206][212] TO EDIT,"
120 PRINT"               [200]IT A [203]EY."
130 OPEN15,8,15
140 OPEN1,8,0,"$"
150 GET#1,A$,A$
160 GET#1,A$,A$
170 IFA$=""THEN290
180 GET#1,A$,A$
190 GET#1,A$
200 IFA$=CHR$(34)THENT=T+1
210 IFA$=CHR$(34)ORT<>1THEN230
220 N$=N$+A$
230 IF A$=""THEN250
240 GOTO190
250 PRINTN$
260 GETD$:IFD$<>""THEN290
270 N$="":T=0
280 GOTO160
290 CLOSE1:CLOSE15
300 PRINT"[205]OVE CURSOR TO SELECTION, [200]IT [210][197][212][213][210][206][146]"
310 INPUTF$:C$=F$
320 Y$=""
330 FORI=1TO16-LEN(F$):F$=F$+CHR$(160):NEXT
340 FOR I= 1 TO 16
350 B=ASC(MID$(F$,I,1))
360 IF B<192 THEN380
370 B=B-96
380 Y$=Y$+CHR$(B)
390 NEXT I
400 F$=Y$
410 CLOSE15:CLOSE1
420 OPEN1,8,15,"I:0":OPEN2,8,2,"#0"
430 T=18:S=1
440 PRINT#1,"U1";2;0;T;S
450 PRINT#1,"B-P";2;0:GET#2,T$,S$
460 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
470 FOR I=0 TO 7
480 B$=""
490 PRINT#1,"B-P";2;32*I+2
500 GET#2,Q$,R$,P$
510 FORJ=1 TO 16
520 GET#2,A$:B$=B$+A$
530 NEXT J
540 IF B$=Y$ THEN GOTO580
550 NEXT I
560 IFT=0THENPRINT"NO FILE":CLOSE1:CLOSE2:END
570 GOTO440
580 GET#2,T$,S$:T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
590 J=33
600 PRINT#1,"U1";2;0;T;S
610 PRINT#1,"B-P";2;128
620 GET#2,L$,H$
630 L=ASC(L$+CHR$(0))
640 H=ASC(H$+CHR$(0))
650 G=L+256*H
660 IF Y<>15 THENY=15:O=G
670 PRINT"[147]  [195]URRENT [201][196]# FOR  ";C$;" [146] IS ";G
680 PRINT"  [197]DIT [201][196]# ? ([217][146]/[206][146])"
690 GETA$:IFA$=""THEN690
700 IF A$<>"Y" AND A$<>"N" THEN690
710 IF A$="Y" THEN740
720 IFO=G THEN1040:REM QUIT
730 GOTO820
740 INPUT"  [195]HANGE TO";N
750 IFN=0 OR N>1027 THEN PRINT"[205]UST BE BETWEEN 1 AND 1027[145]":GOTO740
760 H=INT(N/256):H$=CHR$(H)
770 L=256*(N/256-H):L$=CHR$(L)
780 PRINT#1,"B-P";2;128
790 PRINT#2,L$;H$;
800 PRINT#1,"U2";2;0;T;S
810 GOTO590
820 PRINT#1,"U2";2;0;T;S
830 PRINT#1,"U1";2;0;T;S
840 K=130
850 PRINT#1,"B-P";2;K
860 FORI=0TO J STEP 2
870 GET#2,L$,H$
880 L=ASC(L$+CHR$(0))
890 H=ASC(H$+CHR$(0))
900 G=L+256*H
910 IF G=0 THEN J=J-2:GOTO980
920 G=G-64*(O-N)
930 H=INT(G/256)
940 L=(G/256-H)*256
950 A$(I)=CHR$(L)
960 A$(I+1)=CHR$(H)
970 NEXT I
980 PRINT#1,"U1";2;0;T;S
990 PRINT#1,"B-P";2;K
1000 FOR I= 0TOJ STEP2
1010 PRINT#2,A$(I);A$(I+1);
1020 NEXT I
1030 PRINT#1,"U2";2;0;T;S
1040 CLOSE1:CLOSE2
1050 PRINT"[147]                [195][207][205][208][204][197][212][197]  "
1060 PRINT"           [197]DIT [193]NOTHER ([217][146]/[206][146] ?"
1070 GETA$:IFA$<>"Y"AND A$<>"N"THEN1070
1080 IF A$="Y" THEN80
1090 CLOSE1:CLOSE2
1100 PRINT"[147]             [210][197][194][207][207][212] [199][197][207][211] ? [146]"
1110 PRINT"              [217][146]ES OR [206][146]O ?"
1120 GETA$:IFA$<>"Y"AND A$<>"N"THEN1120
1130 IFA$="N"THEN END
1140 PRINT"[147]      [201]NSERT [199][197][207][211] [194]OOTDISK IN [196]RIVE [146]"
1150 PRINT"              [200]IT [210][197][212][213][210][206]"
1160 GETA$:IFA$=""THEN1160
1170 LOAD"GEOS",8,1
1180 END